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• 



1 




2 


* 




* 


3 


* 


APPLE 


II * 


4 


* SYSTEM MONITOR * 


5 


* 




* 


6 


* COPYRIGHT 


1977 BY * 


7 


* APPLE COMPUTER, INC. * 


8 


* 




* 


9 


* ALL 


RIGHTS 


RESERVED * 


10 


* 




* 


11 


* 


S. WOZNIAK * 


12 


* 


A. BAUM * 


13 


* 




* 


14 




15 


; TITLE 


"APPLE 


II SYSTEM MONITOR" 


16 


LOCO 


EQU 


$00 


17 


LOCI 


EQU 


$01 


18 


WNDLFT 


EQU 


$20 


19 


WNDWDTH 


EQU 


$21 


20 


WNDTOP 


EQU 


$22 


21 


WNDBTM 


EQU 


$23 


22 


CH 


EQU 


$24 


23 


CV 


EQU 


$25 


24 


GBASL 


EQU 


$26 


25 


GBASH 


EQU 


$27 


26 


BASL 


EQU 


$28 


27 


BASH 


EQU 


$29 


28 


BAS2L 


EQU 


$2A 


29 


BAS2H 


EQU 


$2B 


30 


H2 


EQU 


$2C 


31 


LMNEM 


EQU 


$2C 


32 


RTNL 


EQU 


$2C 


33 


V2 


EQU 


$2D 


34 


RMNEM 


EQU 


$2D 


35 


RTNH 


EQU 


$2D 


36 


MASK 


EQU 


$2E 


37 


CHKSUM 


EQU 


$2E 


38 


FORMAT 


EQU 


$2E 


39 


LASTIN 


EQU 


$2F 


40 


LENGTH 


EQU 


$2F 


41 


SIGN 


EQU 


$2F 


42 


COLOR 


EQU 


$30 


43 


MODE 


EQU 


$31 


44 


INVFLG 


EQU 


$32 


45 


PROMPT 


EQU 


$33 


46 


YSAV 


EQU 


$34 


47 


YSAV1 


EQU 


$35 


48 


CSWL 


EQU 


$36 


49 


CSWH 


EQU 


$37 


50 


KSWL 


EQU 


$38 


51 


KSWH 


EQU 


$39 


52 


PCL 


EQU 


$3A 


53 


PCH 


EQU 


$3B 


54 


XQT 


EQU 


$3C 
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JJ 


AIL 


EQU 


$3C 








Sfi 


A1H 


EQU 


$3D 








R7 
J / 


A2L 


EQU 


$3E 








-JO 


A2H 


EQU 


$3F 










A3L 


EQU 


$40 








fin 


A3H 


EQU 


$41 








fil 


A4L 


EQU 


$42 








fi? 


A4H 


EQU 


$43 








fi3 


A5L 


EQU 


$44 








fi4 


A5H 


EQU 


$45 








fiR 


ACC 


EQU 


$45 








fifi 


XREG 


EQU 


$46 








fi7 


YREG 


EQU 


$47 








fifi 
uo 


STATUS 


EQU 


$48 








fiQ 


SPNT 


EQU 


$49 








/ V 


RNDL 


EQU 


$4E 








71 

/ J. 


RNDH 


EQU 


$4F 








11 


ACL 


EQU 


$50 








7^ 
/ j 


ACH 


EQU 


$51 








Id 


XTNDL 


EQU 


$52 








/ J 


XTNDH 


EQU 


$53 








7fi 
/ u 


AUXL 


EQU 


$54 








77 


AUXH 


EQU 


$55 








78 
/ o 


PICK 


EQU 


$95 








79 

/ Zf 


IN 


EQU 


$0200 








RA 


USRADR 


EQU 


$03F8 








R1 


NMI 


EQU 


$03FB 








R? 
OZ. 


IRQLOC 


EQU 


$03FE 








R"3 
Oj 


IOADR 


EQU 


$C000 








R4 
OM- 


KBD 


EQU 


$C000 








RS 


KBDSTRB 


EQU 


$C010 








Rfi 


TAPEOUT 


EQU 


$C020 








R7 
o / 


SPKR 


EQU 


$C030 








RR 
oo 


TXTCLR 


EQU 


$C050 








RQ 


TXTSET 


EQU 


$C051 










MIXCLR 


EQU 


$C052 








Zf -L 


MIXSET 


EQU 


$C053 








Zt £- 


LOWSCR 


EQU 


$C054 










HISCR 


EQU 


$C055 










LORES 


EQU 


$C056 








ZJ J 


HIRES 


EQU 


$C057 










TAPEIN 


EQU 


$C060 








Q7 

-3 / 


PADDL0 


EQU 


$C064 








QR 


PTRIG 


EQU 


$C070 








ZJZJ 


BASIC 


EQU 


$E000 








1 AA 


BASIC2 


EQU 


$E003 








1 01 

J.U -L 




ORG 


$F800 


;ROM START ADDRESS 


F800 


4A 




1 A? 


PLOT 


LSR 




;Y-C00RD/2 


F801 


08 




1 PR 




PHP 




;SAVE LSB IN CARRY 


F802 


20 


47 Fft 

Hi r O 


1 A4 




JSR 


GBASCALC 


;CALC BASE ADR IN GBASL, H 


F805 


28 




1 AS 




PLP 




; RESTORE LSB FROM CARRY 


F806 


A9 


V r 


1 Afi 




LDA 


#$0F 


; MASK $0F IF EVEN 


F808 


90 


02 


107 




BCC 


RTMASK 




F80A 


69 


E0 


108 




ADC 


#$E0 


; MASK $F0 IF ODD 


F80C 


85 


2E 


109 


RTMASK 


STA 


MASK 
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F80E 


Bl 


26 




110 


PL0T1 


LDA 


(GBASL) ,Y 


DATA 


F810 


45 


30 




111 




EOR 


COLOR 


EOR COLOR 


F812 


25 


2E 




112 




AND 


MASK 


AND MASK 


F814 


51 


26 




113 




EOR 


(GBASL) ,Y 


EOR DATA 


F816 


91 


26 




114 




STA 


(GBASL) ,Y 


TO DATA 


F818 


60 






115 




RTS 






F819 


20 


00 


F8 


116 


HLINE 


JSR 


PLOT 


PLOT SQUARE 


F81C 


C4 


2C 




117 


HLINE1 


CPY 


H2 


DONE? 


F81E 


B0 


11 




118 




BCS 


RTS1 


YES, RETURN 


F820 


C8 






119 




INY 




NO, INC INDEX (X-COORD) 


F821 


20 


0E 


F8 


120 




JSR 


PLOT1 


PLOT NEXT SQUARE 


F824 


90 


F6 




121 




BCC 


HLINE1 


ALWAYS TAKEN 


F826 


69 


01 




122 


VLINEZ 


ADC 


#$01 


NEXT Y- COORD 


F828 


48 






123 


VLINE 


PHA 




SAVE ON STACK 


F829 


20 


00 


F8 


124 




JSR 


PLOT 


PLOT SQUARE 


F82C 


68 






125 




PLA 






F82D 


C5 


2D 




126 




CMP 


V2 ; DONE? 


F82F 


90 


F5 




127 




BCC 


VLINEZ 


NO, LOOP 


F831 


60 






128 


RTS1 


RTS 






F832 


A0 


2F 




129 


CLRSCR 


LDY 


#$2F 


MAX Y, FULL SCRN CLR 


F834 


D0 


02 




130 




BNE 


CLRSC2 


ALWAYS TAKEN 


F836 


A0 


27 




131 


CLRTOP 


LDY 


#$27 


MAX Y, TOP SCREEN CLR 


F838 


84 


2D 




132 
133 


CLRSC2 


STY 


V2 


STORE AS BOTTOM COORD 
FOR VLINE CALLS 


F83A 


A0 


27 




134 




LDY 


#$27 


RIGHTMOST X-COORD (COLUMN) 


F83C 


A9 


00 




135 


CLRSC3 


LDA 


#$00 


TOP COORD FOR VLINE CALLS 


F83E 


85 


30 




136 




STA 


COLOR 


CLEAR COLOR (BLACK) 


F840 


20 


28 


F8 


137 




JSR 


VLINE 


DRAW VLINE 


F843 


88 






138 




DEY 




NEXT LEFTMOST X-COORD 


F844 


10 


F6 




139 




BPL 


CLRSC3 


LOOP UNTIL DONE 


F846 


60 






140 




RTS 






F847 


48 






141 


GBASCALC 


PHA 


;FOR INPUT 000DEFGH 


F848 


4A 






142 




LSR 






F849 


29 


03 




143 




AND 


#$03 




F84B 


09 


04 




144 




ORA 


#$04 


GENERATE GBASH=000001FG 


F84D 


85 


27 




145 




STA 


GBASH 




F84F 


68 






146 




PLA 




AND GBASL=HDEDE000 


F850 


29 


18 




147 




AND 


#$18 




F852 


90 


02 




148 




BCC 


GBCALC 




F854 


69 


7F 




149 




ADC 


#$7F 




F856 


85 


26 




150 


GBCALC 


STA 


GBASL 




F858 


0A 






151 




ASL 






F859 


0A 






152 




ASL 






F85A 


05 


26 




153 




ORA 


GBASL 




F85C 


85 


26 




154 




STA 


GBASL 




F85E 


60 






155 




RTS 






F85F 


A5 


30 




156 


NXTCOL 


LDA 


COLOR ; INCREMENT COLOR BY 3 


F861 


18 






157 




CLC 






F862 


69 


03 




158 




ADC 


#$03 




F864 


29 


0F 




159 


SETCOL 


AND 


#$0F ;SETS C0L0R=17*A MOD 16 


F866 


85 


30 




160 




STA 


COLOR 




F868 


0A 






161 




ASL 


; BOTH HALF BYTES OF COLOR EQUAL 


F869 


0A 






162 




ASL 






F86A 


0A 






163 




ASL 






F86B 


0A 






164 




ASL 
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F86C 


05 


30 




165 




ORA 


COLOR 




F86E 


85 


30 




166 




STA 


COLOR 




F870 


60 






167 




RTS 






F871 


4A 






168 


SCRN 


LSR 




READ SCREEN Y-C00RD/2 


F872 


08 






169 




PHP 




SAVE LSB (CARRY) 


F873 


20 


47 


F8 


170 




JSR 


GBASCALC 


CALC BASE ADDRESS 


F876 


Bl 


26 




171 




LDA 


(GBASL) ,Y 


GET BYTE 


F878 


28 






172 




PLP 




RESTORE LSB FROM CARRY 


F879 


90 


04 




173 


SCRN2 


BCC 


RTMSKZ 


IF EVEN, USE LO H 


F87B 


4A 






174 




LSR 






F87C 


4A 






175 




LSR 






F87D 


4A 






176 




LSR 




SHIFT HIGH HALF BYTE DOWN 


F87E 


4A 






177 




LSR 






F87F 


29 


0F 




178 


RTMSKZ 


AND 


#$0F ; MASK 4-BITS 


F881 


60 






179 




RTS 






F882 


A6 


3A 




180 


INSDS1 


LDX 


PCL ; PRINT PCL,H 


F884 


A4 


3B 




181 




LDY 


PCH 




F886 


20 


96 


FD 


182 




JSR 


PRYX2 




F889 


20 


48 


F9 


183 




JSR 


PRBLNK 


FOLLOWED BY A BLANK 


F88C 


Al 


3A 




184 




LDA 


(PCL.X) 


GET OP CODE 


F88E 


A8 






185 


INSDS2 


TAY 






F88F 


4A 






186 




LSR 


; EVEN/ODD TEST 


F890 


90 


09 




187 




BCC 


IEVEN 




F892 


6A 






188 




ROR 




BIT 1 TEST 


F893 


B0 


10 




189 




BCS 


ERR ;XXXXXX11 INVALID OP 


F895 


C9 


A2 




190 




CMP 


#$A2 




F897 


F0 


0C 




191 




BEQ 


ERR 


OPCODE $89 INVALID 


F899 


29 


87 




192 




AND 


#$87 


MASK BITS 


F89B 


4A 






193 


IEVEN 


LSR 




LSB INTO CARRY FOR L/R TEST 


F89C 


AA 






194 




TAX 






F89D 


BD 


62 


F9 


195 




LDA 


FMTl.X ; GET FORMAT INDEX BYTE 


F8A0 


20 


79 


F8 


196 




JSR 


SCRN2 ;R/L H-BYTE ON CARRY 


F8A3 


D0 


04 




197 




BNE 


GETFMT 




F8A5 


A0 


80 




198 


ERR 


LDY 


#$80 ; SUBSTITUTE $80 FOR INVALID OPS 


F8A7 


A9 


00 




199 




LDA 


#$00 ;SET PRINT FORMAT INDEX TO 


F8A9 


AA 






200 


GETFMT 


TAX 






F8AA 


BD 


A6 


F9 


201 




LDA 


FMT2 , X 


INDEX INTO PRINT FORMAT TABLE 


F8AD 


85 


2E 




202 




STA 


FORMAT 


SAVE FOR ADR FIELD FORMATTING 


F8AF 


29 


03 




203 
204 




AND 


#$03 


MASK FOR 2 -BIT LENGTH 
(P=l BYTE, 1=2 BYTE, 2=3 BYTE) 


F8B1 


85 


2F 




205 




STA 


LENGTH 




F8B3 


98 






206 




TYA 




OPCODE 


F8B4 


29 


8F 




207 




AND 


#$8F 


MASK FOR 1XXX1010 TEST 


F8B6 


AA 






208 




TAX 




SAVE IT 


F8B7 


98 






209 




TYA 




OPCODE TO A AGAIN 


F8B8 


A0 


03 




210 




LDY 


#$03 




F8BA 


E0 


8A 




211 




CPX 


#$8A 




F8BC 


F0 


0B 




212 




BEQ 


MNNDX3 




F8BE 


4A 






213 


MNNDX1 


LSR 






F8BF 


90 


08 




214 




BCC 


MNNDX3 ; FORM INDEX INTO MNEMONIC TABLE 


F8C1 


4A 






215 




LSR 






F8C2 


4A 






216 


MNNDX2 


LSR 




1) 1XXX1010->00101XXX 


F8C3 


09 


20 




217 




ORA 


#$20 


2) XXXYYY01->00111XXX 


F8C5 


88 






218 




DEY 




3) XXXYYY10->00110XXX 


F8C6 


D0 


FA 




219 




BNE 


MNNDX2 


4) XXXYY100->00100XXX 
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F8C8 


C8 






220 




INY 




;5) XXXXX000->000XXXXX 


F8C9 


88 






221 


MNNDX3 


DEY 






F8CA 


D0 


F2 




222 




BNE 


MNNDX1 




F8CC 


60 






223 




RTS 






F8CD 


FF 


FF 


FF 


224 




DFB 


$FF,$FF,$FF 


F8D0 


20 


82 


F8 


225 


INSTDSP 


JSR 


INSDS1 


; GEN FMT, LEN BYTES 


F8D3 


48 






226 




PHA 




;SAVE MNEMONIC TABLE INDEX 


F8D4 


Bl 


3A 




227 


PRNTOP 


LDA 


(PCL),Y 




F8D6 


20 


DA 


FD 


228 




JSR 


PRBYTE 




F8D9 


A2 


01 




229 




LDX 


#$01 


; PRINT 2 BLANKS 


F8DB 


20 


4A 


F9 


230 


PRNTBL 


JSR 


PRBL2 




F8DE 


C4 


2F 




231 




CPY 


LENGTH 


; PRINT INST (1-3 BYTES) 


F8E0 


C8 






232 




INY 




; IN A 12 CHR FIELD 


F8E1 


90 


Fl 




233 




BCC 


PRNTOP 




F8E3 


A2 


03 




234 




LDX 


#$03 


; CHAR COUNT FOR MNEMONIC PRINT 


F8E5 


C0 


04 




235 




CPY 


#$04 




F8E7 


90 


F2 




236 




BCC 


PRNTBL 




F8E9 


68 






237 




PLA 




; RECOVER MNEMONIC INDEX 


F8EA 


A8 






238 




TAY 






F8EB 


B9 


C0 


F9 


239 




LDA 


MNEML, Y 




F8EE 


85 


2C 




240 




STA 


LMNEM 


; FETCH 3-CHAR MNEMONIC 


F8F0 


B9 


00 


FA 


241 




LDA 


MNEMR, Y 


; (PACKED IN 2 -BYTES) 


F8F3 


85 


2D 




242 




STA 


RMNEM 




F8F5 


A9 


00 




243 


PRMN1 


LDA 


#$00 




F8F7 


A0 


05 




244 




LDY 


#$05 




F8F9 


06 


2D 




245 


PRMN2 


ASL 


RMNEM 


; SHIFT 5 BITS OF 


F8FB 


26 


2C 




246 




ROL 


LMNEM 


; CHARACTER INTO A 


F8FD 


2A 






247 




ROL 




; (CLEARS CARRY) 


F8FE 


88 






248 




DEY 






F8FF 


D0 


F8 




249 




BNE 


PRMN2 




F901 


69 


BF 




250 




ADC 


#$BF 


; ADD "?" OFFSET 


F903 


20 


ED 


FD 


251 




JSR 


COUT 


; OUTPUT A CHAR OF MNEM 


F906 


CA 






252 




DEX 






F907 


D0 


EC 




253 




BNE 


PRMN1 




F909 


20 


48 


F9 


254 




JSR 


PRBLNK 


; OUTPUT 3 BLANKS 


F90C 


A4 


2F 




255 




LDY 


LENGTH 




F90E 


A2 


06 




256 




LDX 


#$06 


;CNT FOR 6 FORMAT BITS 


F910 


E0 


03 




257 


PRADR1 


CPX 


#$03 




F912 


F0 


1C 




258 




BEQ 


PRADR5 


;IF X=3 THEN ADDR. 


F914 


06 


2E 




259 


PRADR2 


ASL 


FORMAT 




F916 


90 


0E 




260 




BCC 


PRADR3 




F918 


BD 


B3 


F9 


261 




LDA 


CHAR1-1,X 




F91B 


20 


ED 


FD 


262 




JSR 


COUT 




F91E 


BD 


B9 


F9 


263 




LDA 


CHAR2-1.X 




F921 


F0 


03 




264 




BEQ 


PRADR3 




F923 


20 


ED 


FD 


265 




JSR 


COUT 




F926 


CA 






266 


PRADR3 


DEX 






F927 


D0 


E7 




267 




BNE 


PRADR1 




F929 


60 






268 




RTS 






F92A 


88 






269 


PRADR4 


DEY 






F92B 


30 


E7 




270 




BMI 


PRADR2 




F92D 


20 


DA 


FD 


271 




JSR 


PRBYTE 




F930 


A5 


2E 




272 


PRADR5 


LDA 


FORMAT 




F932 


C9 


E8 




273 




CMP 


#$E8 


; HANDLE REL ADR MODE 


F934 


Bl 


3A 




274 




LDA 


(PCL).Y 


; SPECIAL (PRINT TARGET, 
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Fens 




F7 
r z 




Z 1 J 






BCC 


PRAnRA ■ MOT OFFC;F"n 


FQ3P 


?n 

Zo 


Rfi 

JU 


FQ 
r v 


71F> 

Z 1 U 


RELADR 




JSR 


pr An 1 3 

rLnUJ J 


FQ3R 


AA 

MM 






711 

£-11 






TAX 


. pn prw+nFFciFT+i to a y 

, rv.L ( rLnTurr jc I ti i u m, i 


pcnr 


FR 
Co 






97P 
Z / 






INX 




FQ3n 


nn 


o 1 










BNE 


PRMTYY --I-1 TO Y Y 
r r\N 1 1 A , T 1 1 U 1 ,A 


pen F 


rp 

LO 






9Pn 

Zoo 






INY 




FQAfl 
r ynu 


QP 






?P1 
zo ± 


PRNTYX 




TYA 




FQ41 
r j4i 


7Fl 

Z O 


nA 

UM 


Fn 

r u 


?p? 
zoz 


PRNTAX 




JSR 


PRRYTF -OUTPUT TARflFT AnR 
r r\D lie r UU 1 r U 1 1 MrxOC 1 MUr\ 


FQAA 


PA 

OM 






2P3 


PRNTX 




TXA 


OF RRANTH ANn RFTIIRN 


FQ4S 


AC 


nA 

UM 


Fn 

r u 


7P4 

Z OH- 






JMP 


PRRYTF 
r r\D I 1 C 


FQ4R 


A? 

MZ 


03 

OJ 




^PR 
ZO J 


PRBLNK 




LDX 


jff drH - ^ ■ Rl ANK milNT 

tt 4>U O ; DI_MNi\ V„v/Uiy 1 


FQ4A 


AQ 
My 


An 

Mo 




zoo 


PRBL2 




LDA 


i£<tAfl ■ 1 OAn A QPAfF 


FQ4T 




pn 


Fn 
r u 


9P7 

ZO / 


PRBL3 




JSR 


mi it ■ output a ri amk 

1>UU 1 , UU 1 rU 1 M DLMNix 


FQ4F 


TA 






9PP 
zoo 






DEX 




FQS0 


nn 

uo 


FP 
r o 




?PQ 






BNE 


PRRI 1 '\ OOP IIMTTI rniiNT-n 

rrxDLZ. , LUUr Ul^ 1 XL LUUI^ 1 — U 


FQS? 


fin 






?Qn 

ij o 






RTS 






3P 

JO 






7Q1 

i 31 


PCADJ 




SEC 


■ 0-1 - RYTF 1-1 - RYTF 

I U — 1 Dl IE, A. — Z Dl 1 C 


FQS4 


AR 

M J 


7F 

Z V 




Z 


PCADJ2 




LDA 


1 FNHTH ■ 1—1 -RYTF 

LLlMu 1 n , Z. — J Dl IE 




AA 
Mt 


3R 




zy j 


PCADJ 3 




LDY 




FQSR 


AA 

MM 












TAX 


■tfc;t nTc;pi AfFMFMT ^THM 

, 1 CO 1 UL JTLnLEI ICIM 1 DXUIM 


FQSQ 


1U 


m 

o 1 




zy j 






BPL 


PTAn 14 ( FOR RFI RRAMTH ^ 


FQSR 


pp 
oo 






i jU 






DEY 


■ FYTFNn MFfl RY nFf PfH 

r EA 1 ENU NL.VJ Dl UEL rLn 


FQSf 


fiR 


3A 

OM 




?Q7 


PCADJ4 




ADC 


Pfl 


FQSF 


JO 


m 

o 1 




7QP 

ijO 






BCC 


RTC;9 ■ Pfl +1 FM^THfOR nTc;pi ^+1 TO 


FQR0 


TP 






ij j 






INY 


TARRY TMTO Y ^Pfl-I^ 




fin 






3nn 

JOO 


RTS2 




RTS 












3ni 

JOl 


* FMT1 


BYTES : 


XXXXXXY0 TN9TR9 

/\/\/\/\/\/\ 1 U llij 1 wo 










3n? 

JUL 


* IF Y= 


:0 




THFN 1 FFT HAI F RYTF 

1 1 1 1_ 1 M l_ l_ 1 1 1 IM l_ 1 DHL 










3n3 

JO J 


* IF Y= 


-1 




THFM RTTHT HAI F RYTF 
i ni_N r\±vjn i nMLr due 










3n4 

jot 


* 






( X— TNnFX ) 

\ /\ — J. Ill U C/\ ) 




nA 

OH 


?n 

Zo 


RA 


3ns 

JO J 


FMT1 




DFB 


^04 <fc?0 < tS4 ^^0 ^On 

4>UH- , q>Z.U , 4> JH- , q> Z>\) , 4>UU 


FQfiS 
i _/ \j -j 


30 


nn 














FQfi7 


pn 

OO 


oa 

OH- 


Qn 

JO 


3nfi 

JOU 






DFB 


^RO ^04 ^QO ^0^ <11 

4>OU , 4>UH- , q> zj\) f 4>U-> , 4>Z.Z 


FQfiA 


03 


77 
















S4 


■3-3 
JO 


nn 

ou 


3n7 

JO/ 






DFB 


<l;S4 <n ^on ^RO ^04 

4> J*+ , 4>j J , 4>UU , 4>OU , 4>UH- 


FQfiF 


R0 

OU 


oa 

0*T 














FQ71 




oa 

o4 


9n 

Zo 


3np 

JOO 






DFB 


<tQ0 <tA4 <t90 <tS4 <kH 
q>yu, .pun-, 4>ZU , q>j*+, 


FQ74 


S4 


jj 














FQ7fi 


uu 


pn 

OO 


oa 


3nQ 

JO? 






DFB 


4;0n 4;R0 4;04 ^QO ^04 

4>UU , 4>OU , 4>UH- , 4»3U , 4>UH- 


FQ7Q 

1 Zf 1 Zf 


Q0 


oa 














FQ7R 


70 
z.u 


S4 


3R 

JD 


3i n 

JlU 






DFB 


^70 <I;S4 4;^r ^on ^RO 

4>Z.U , 4> JH- , 4>jD , q>UU , q>OU 


FQ7F 

1 Zf I 1— 




80 
















A4 
UH- 


QA 


nn 

OO 


311 
j 11 






DFB 


<t04 <tQ0 <tAA <kll <t44 
q>UH-, q>yu, q>UU, q>ZZ, q>*4*+ 


FQR3 


















FQRS 


JJ 


nn 


rp 


319 
J 1Z 






DFB 


<tn <ton <tfR <t44 <too 


FQRR 




00 














FQfiA 


1 1 

JL JL 


11 


AA 


313 
j i j 






DFB 


i <n <aa <n ^nn 


FQRD 

1 ZJ\J\J 


-J — ' 


on 














FQRF 


fR 


44 


AQ 

nj 


314 

J 14 






DFB 


<CR <dd <tAQ ^01 <11 


FQQ? 


01 


77 
z_ z_ 














FQQ4 


44 


JJ 


nn 

oU 


31 R 
j 1 j 






DFB 


<t44 <k11 <t0n <tRA <t04 
q>*+*+ , 4>jj, q>UU, q>OU, q>U*+ 


F997 


80 


04 














F999 


90 


01 


22 


316 






DFB 


$90, $01, $22, $44, $33 


F99C 


44 


33 














F99E 


0D 


80 


04 


317 






DFB 


$0D,$80,$04,$90 
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Apple-II 


Computer Information 


FQA1 


















FQA? 

r ZJ r\/L 


9fi 
Z.U 


o 1. 


o / 


J io 




DFB 


$26,$31,$87,$9A ;$ZZXXXY01 


FQAS 
r 3Hj 


QA 
















FQAfi 


uu 






31 Q 


FMT2 


DFB 


$00 


ERR 


FQA7 


91 






39fl 




DFB 


$21 


IMM 


FQAfi 


R1 






391 




DFB 


$81 


Z-PAGE 


FQAQ 

r ZJ r\z) 


89 






399 




DFB 


$82 


ABS 


FQAA 








393 




DFB 


$00 


IMPLIED 


FQAR 


oo 






394 




DFB 


$00 


ACCUMULATOR 


FQAf 








39R 




DFB 


$59 


(ZPAG,X) 


FQAn 


4D 

HU 






39fi 




DFB 


$4D 


(ZPAG),Y 


FQAF 


Q1 






397 




DFB 


$91 


ZPAG , X 


FQAF 


Q9 






398 




DFB 


$92 


ABS,X 


FQRA 


oo 






39Q 




DFB 


$86 


ABS, Y 


FQR1 


4A 

H-M 






33fl 




DFB 


$4A 


(ABS) 


FQR? 


OJ 






331 




DFB 


$85 


ZPAG , Y 


FQR^ 

1 Zj UJ 


ZJ U 






339 




DFB 


$9D 


RELATIVE 


FQRA 


AT 
ML. 


AQ 


AT 
ML. 


"3 "3 "3 
J J J 


CHAR1 


ASC 


",),#($" 




F9B7 


A3 


A8 


A4 












F9BA 


D9 


00 


D8 


334 


CHAR2 


DFB 


$D9 , $00 , $D8 , $A4 , $A4 , $00 


F9BD 


A4 


A4 


00 













335 *CHAR2: "Y" ,0, "X$$" ,0 

336 * MNEML IS OF FORM: 

337 * (A) XXXXX000 

338 * (B) XXXYY100 

339 * (C) 1XXX1010 

340 * (D) XXXYYY10 

341 * (E) XXXYYY0 1 

342 * (X=INDEX) 



F9C0 


1C 


8A 


1C 


343 


MNEML 


DFB 


$1C,$8A,$1C,$23,$5D,$8B 


F9C3 


23 


5D 


8B 










F9C6 


IB 


Al 


9D 


344 




DFB 


$1B,$A1,$9D,$8A,$1D,$23 


F9C9 


8A 


ID 


23 










F9CC 


9D 


8B 


ID 


345 




DFB 


$9D,$8B,$1D,$A1,$00,$29 


F9CF 


Al 


00 


29 










F9D2 


19 


AE 


69 


346 




DFB 


$19,$AE,$69,$A8,$19,$23 


F9D5 


A8 


19 


23 










F9D8 


24 


53 


IB 


347 




DFB 


$24, $53, $1B, $23, $24, $53 


F9DB 


23 


24 


53 










F9DE 


19 


Al 




348 




DFB 


$19,$A1 ; (A) FORMAT ABOVE 


F9E0 


00 


1A 


5B 


349 




DFB 


$00,$1A,$5B,$5B,$A5,$69 


F9E3 


5B 


A5 


69 










F9E6 


24 


24 




350 




DFB 


$24, $24 ;(B) FORMAT 


F9E8 


AE 


AE 


A8 


351 




DFB 


$AE , $AE , $A8 , $AD , $29 , $00 


F9EB 


AD 


29 


00 










F9EE 


7C 


00 




352 




DFB 


$7C,$00 ;(C) FORMAT 


F9F0 


15 


9C 


6D 


353 




DFB 


$15,$9C,$6D,$9C,$A5,$69 


F9F3 


9C 


A5 


69 










F9F6 


29 


53 




354 




DFB 


$29, $53 ;(D) FORMAT 


F9F8 


84 


13 


34 


355 




DFB 


$84, $13, $34, $11, $A5, $69 


F9FB 


11 


A5 


69 










F9FE 


23 


A0 




356 




DFB 


$23,$A0 ;(E) FORMAT 


FA00 


D8 


62 


5A 


357 


MNEMR 


DFB 


$D8,$62,$5A,$48,$26,$62 


FA03 


48 


26 


62 










FA06 


94 


88 


54 


358 




DFB 


$94, $88, $54, $44, $C8, $54 
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FA09 


44 


C8 


54 












FA0C 


68 


44 


E8 


359 




DFB 


$68,$44,$E8,$94,$00,$B4 


FA0F 


94 


00 


B4 












FA12 


08 


84 


74 


360 




DFB 


$08, $84, $74 


$B4,$28,$6E 


FA15 


B4 


28 


6E 












FA18 


74 


F4 


CC 


361 




DFB 


$74,$F4,$CC,$4A,$72,$F2 


FA1B 


4A 


72 


F2 












FA1E 


A4 


8A 




362 




DFB 


$A4,$8A 


(A) FORMAT 


FA20 


00 


AA 


A2 


363 




DFB 


$00 , $AA , $A2 , $A2 , $74 , $74 


FA23 


A2 


74 


74 












FA26 


74 


72 




364 




DFB 


$74, $72 


(B) FORMAT 


FA28 


44 


68 


B2 


365 




DFB 


$44,$68,$B2,$32,$B2,$00 


FA2B 


32 


B2 


00 












FA2E 


22 


00 




366 




DFB 


$22, $00 


(C) FORMAT 


FA30 


1A 


1A 


26 


367 




DFB 


$1A,$1A,$26 


$26, $72, $72 


FA33 


26 


72 


72 












FA36 


88 


C8 




368 




DFB 


$88 , $C8 


(D) FORMAT 


FA38 


C4 


CA 


26 


369 




DFB 


$C4,$CA,$26,$48,$44,$44 


FA3B 


48 


44 


44 












FA3E 


A2 


C8 




370 




DFB 


$A2,$C8 


(E) FORMAT 


FA40 


FF 


FF 


FF 


371 




DFB 


$FF,$FF,$FF 




FA43 


20 


D0 


F8 


372 


STEP 


JSR 


INSTDSP 


DISASSEMBLE ONE INST 


FA46 


68 






373 




PLA 




AT (PCL.H) 


FA47 


85 


2C 




374 




STA 


RTNL 


ADJUST TO USER 


FA49 


68 






375 




PLA 




STACK. SAVE 


FA4A 


85 


2D 




376 




STA 


RTNH 


RTN ADR. 


FA4C 


A2 


08 




377 




LDX 


#$08 




FA4E 


BD 


10 


FB 


378 


XQINIT 


LDA 


INITBL-1,X ;INIT XEQ AREA 


FA51 


95 


3C 




379 




STA 


XQT,X 




FA53 


CA 






380 




DEX 






FA54 


D0 


F8 




381 




BNE 


XQINIT 




FA56 


Al 


3A 




382 




LDA 


(PCL.X) 


USER OPCODE BYTE 


FA58 


F0 


42 




383 




BEQ 


XBRK 


SPECIAL IF BREAK 


FA5A 


A4 


2F 




384 




LDY 


LENGTH 


LEN FROM DISASSEMBLY 


FA5C 


C9 


20 




385 




CMP 


#$20 




FA5E 


F0 


59 




386 




BEQ 


XJSR ; HANDLE JSR, RTS, JMP, 


FA60 


C9 


60 




387 




CMP 


#$60 


JMP (), RTI SPECIAL 


FA62 


F0 


45 




388 




BEQ 


XRTS 




FA64 


C9 


4C 




389 




CMP 


#$4C 




FA66 


F0 


5C 




390 




BEQ 


XJMP 




FA68 


C9 


6C 




391 




CMP 


#$6C 




FA6A 


F0 


59 




392 




BEQ 


XJMPAT 




FA6C 


C9 


40 




393 




CMP 


#$40 




FA6E 


F0 


35 




394 




BEQ 


XRTI 




FA70 


29 


IF 




395 




AND 


#$1F 




FA72 


49 


14 




396 




EOR 


#$14 




FA74 


C9 


04 




397 




CMP 


#$04 


COPY USER INST TO XEQ AREA 


FA76 


F0 


02 




398 




BEQ 


XQ2 


WITH TRAILING NOPS 


FA78 


Bl 


3A 




399 


XQ1 


LDA 


(PCL),Y 


CHANGE REL BRANCH 


FA7A 


99 


3C 


00 


400 


XQ2 


STA 


XQT, Y 


DISP TO 4 FOR 


FA7D 


88 






401 




DEY 




JMP TO BRANCH OR 


FA7E 


10 


F8 




402 




BPL 


XQ1 


NBRANCH FROM XEQ. 


FA80 


20 


3F 


FF 


403 




JSR 


RESTORE 


RESTORE USER REG CONTENTS. 


FA83 


4C 


3C 


00 


404 




JMP 


XQT 


XEQ USER OP FROM RAM 


FA86 


85 


45 




405 


IRQ 


STA 


ACC 


(RETURN TO NBRANCH) 



APPLE II SYSTEM MONITOR 



Apple Computer 



1977 



8 of 8 



V Apple-II Computer Information V 



FA88 


68 






406 




PLA 






FA89 


48 






407 




PHA 




**IRQ HANDLER 


FA8A 


0A 






408 




ASL 






FA8B 


OA 






409 




ASL 






FA8C 


OA 






410 




ASL 






FA8D 


30 


03 




411 




BMI 


BREAK ;TEST FOR BREAK 


FA8F 


6C 


FE 


03 


412 




JMP 


(IRQLOC) 


USER ROUTINE VECTOR IN RAM 


FA92 


28 






413 


BREAK 


PLP 






FA93 


20 


4C 


FF 


414 




JSR 


SAV1 ;SAVE REG'S ON BREAK 


FA96 


68 






415 




PLA 




INCLUDING PC 


FA97 


85 


3A 




416 




STA 


PCL 




FA99 


68 






417 




PLA 






FA9A 


85 


3B 




418 




STA 


PCH 




FA9C 


20 


82 


F8 


419 


XBRK 


JSR 


INSDS1 


PRINT USER PC. 


FA9F 


20 


DA 


FA 


420 




JSR 


RGDSP1 


AND REG'S 


FAA2 


4C 


65 


FF 


421 




JMP 


MON 


GO TO MONITOR 


FAA5 


18 






422 


XRTI 


CLC 






FAA6 


68 






423 




PLA 




SIMULATE RTI BY EXPECTING 


FAA7 


85 


48 




424 




STA 


STATUS 


STATUS FROM STACK, THEN RTS 


FAA9 


68 






425 


XRTS 


PLA 




RTS SIMULATION 


FAAA 


85 


3A 




426 




STA 


PCL 


EXTRACT PC FROM STACK 


FAAC 


68 






427 




PLA 




AND UPDATE PC BY 1 (LEN=0) 


FAAD 


85 


3B 




428 


PCINC2 


STA 


PCH 




FAAF 


A5 


2F 




429 


PCINC3 


LDA 


LENGTH ; UPDATE PC BY LEN 


FAB1 


20 


56 


F9 


430 




JSR 


PCADJ3 




FAB4 


84 


3B 




431 




STY 


PCH 




FAB6 


18 






432 




CLC 






FAB7 


90 


14 




433 




BCC 


NEWPCL 




FAB9 


18 






434 


XJSR 


CLC 






FABA 


20 


54 


F9 


435 




JSR 


PCADJ2 


UPDATE PC AND PUSH 


FABD 


AA 






436 




TAX 




ONTO STACH FOR 


FABE 


98 






437 




TYA 




JSR SIMULATE 


FABF 


48 






438 




PHA 






FAC0 


8A 






439 




TXA 






FAC1 


48 






440 




PHA 






FAC2 


A0 


02 




441 




LDY 


#$02 




FAC4 


18 






442 


XJMP 


CLC 






FAC5 


Bl 


3A 




443 


XJMPAT 


LDA 


(PCL).Y 




FAC7 


AA 






444 




TAX 


; LOAD PC FOR JMP, 


FAC8 


88 






445 




DEY 




(JMP) SIMULATE. 


FAC9 


Bl 


3A 




446 




LDA 


(PCL),Y 




FACB 


86 


3B 




447 




STX 


PCH 




FACD 


85 


3A 




448 


NEWPCL 


STA 


PCL 




FACF 


B0 


F3 




449 




BCS 


XJMP 




FAD1 


A5 


2D 




450 


RTNJMP 


LDA 


RTNH 




FAD3 


48 






451 




PHA 






FAD4 


A5 


2C 




452 




LDA 


RTNL 




FAD6 


48 






453 




PHA 






FAD7 


20 


8E 


FD 


454 


REGDSP 


JSR 


CROUT 


DISPLAY USER REG 


FADA 


A9 


45 




455 


RGDSP1 


LDA 


#ACC 


CONTENTS WITH 


FADC 


85 


40 




456 




STA 


A3L 


LABELS 


FADE 


A9 


00 




457 




LDA 


#ACC/256 




FAE0 


85 


41 




458 




STA 


A3H 




FAE2 


A2 


FB 




459 




LDX 


#$FB 




FAE4 


A9 


A0 




460 


RDSP1 


LDA 


#$A0 
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FAE6 


20 


ED 


FD 


461 




JSR 


COUT 




FAE9 


BD 


IE 


FA 


462 




LDA 


RTBL-$FB,X 




FAEC 


20 


ED 


FD 


463 




JSR 


COUT 




FAEF 


A9 


BD 




464 




LDA 


#$BD 




FAF1 


20 


ED 


FD 


465 




JSR 


COUT 




FAF4 


B5 


4A 




466 




LDA 


ACC+5,X 




FAF6 


20 


DA 


FD 


467 




JSR 


PRBYTE 




FAF9 


E8 






468 




INX 






FA FA 


30 


E8 




469 




BMI 


RDSP1 




FAFC 


60 






470 




RTS 






FAFD 


18 






471 


BRANCH 


CLC 


; BRANCH TAKEN, 


FAFE 


A0 


01 




472 




LDY 


#$01 


ADD LEN+2 TO PC 


FB00 


Bl 


3A 




473 




LDA 


(PCL).Y 




FB02 


20 


56 


F9 


474 




JSR 


PCADJ3 




FB05 


85 


3A 




475 




STA 


PCL 




FB07 


98 






476 




TYA 






FB08 


38 






477 




SEC 






FB09 


B0 


A2 




478 




BCS 


PCINC2 




FB0B 


20 


4A 


FF 


479 


NBRNCH 


JSR 


SAVE 


NORMAL RETURN AFTER 


FB0E 


38 






480 




SEC 




XEQ USER OF 


FB0F 


B0 


9E 




481 




BCS 


PCINC3 


GO UPDATE PC 


FB11 


EA 






482 


INITBL 


NOP 






FB12 


EA 






483 




NOP 


; DUMMY FILL FOR 


FB13 


4C 


0B 


FB 


484 




JMP 


NBRNCH 


XEQ AREA 


FB16 


4C 


FD 


FA 


485 




JMP 


BRANCH 




FB19 


CI 






486 


RTBL 


DFB 


$C1 




FB1A 


D8 






487 




DFB 


$D8 




FB1B 


D9 






488 




DFB 


$D9 




FB1C 


D0 






489 




DFB 


$D0 




FB1D 


D3 






490 




DFB 


$D3 




FB1E 


AD 


70 


C0 


491 


PREAD 


LDA 


PTRIG 


TRIGGER PADDLES 


FB21 


A0 


00 




492 




LDY 


#$00 


INIT COUNT 


FB23 


EA 






493 




NOP 




COMPENSATE FOR 1ST COUNT 


FB24 


EA 






494 




NOP 






FB25 


BD 


64 


CO 


495 


PREAD2 


LDA 


PADDL0,X ; COUNT Y-REG EVERY 


FB28 


10 


04 




496 




BPL 


RTS 2D 


12 USEC 


FB2A 


C8 






497 




INY 






FB2B 


D0 


F8 




498 




BNE 


PREAD2 


EXIT AT 255 MAX 


FB2D 


88 






499 




DEY 






FB2E 


60 






500 


RTS2D 


RTS 






FB2F 


A9 


00 




501 


INIT 


LDA 


#$00 ;CLR STATUS FOR DEBUG 


FB31 


85 


48 




502 




STA 


STATUS 


SOFTWARE 


FB33 


AD 


56 


CO 


503 




LDA 


LORES 




FB36 


AD 


54 


CO 


504 




LDA 


LOWSCR 


INIT VIDEO MODE 


FB39 


AD 


51 


CO 


505 


SETTXT 


LDA 


TXTSET 


SET FOR TEXT MODE 


FB3C 


A9 


00 




506 




LDA 


#$00 


FULL SCREEN WINDOW 


FB3E 


F0 


0B 




507 




BEQ 


SETWND 




FB40 


AD 


50 


CO 


508 


SETGR 


LDA 


TXTCLR 


SET FOR GRAPHICS MODE 


FB43 


AD 


53 


C0 


509 




LDA 


MIXSET 


LOWER 4 LINES AS 


FB46 


20 


36 


F8 


510 




JSR 


CLRTOP 


TEXT WINDOW 


FB49 


A9 


14 




511 




LDA 


#$14 




FB4B 


85 


22 




512 


SETWND 


STA 


WNDTOP 


SET FOR 40 COL WINDOW 


FB4D 


A9 


00 




513 




LDA 


#$00 


TOP IN A-REG, 


FB4F 


85 


20 




514 




STA 


WNDLFT 


BTTM AT LINE 24 


FB51 


A9 


28 




515 




LDA 


#$28 
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FB53 


85 


21 




516 




STA 


WNDWDTH 




FB55 


A9 


18 




517 




LDA 


#$18 




FB57 


85 


23 




518 




STA 


WNDBTM 


VTAB TO ROW 23 


FB59 


A9 


17 




519 




LDA 


#$17 




FB5B 


85 


25 




520 


TABV 


STA 


CV ;VTABS TO ROW IN A -REG 


FB5D 


4C 


22 


FC 


521 




JMP 


VTAB 




FB60 


20 


A4 


FB 


522 


MULPM 


JSR 


MD1 


ABS VAL OF AC AUX 


FB63 


A0 


10 




523 


MUL 


LDY 


#$10 


INDEX FOR 16 BITS 


FB65 


A5 


50 




524 


MUL2 


LDA 


ACL 


ACX * AUX + XTND 


FB67 


4A 






525 




LSR 




TO AC, XTND 


FB68 


90 


0C 




526 




BCC 


MUL4 


IF NO CARRY, 


FB6A 


18 






527 




CLC 




NO PARTIAL PROD. 


FB6B 


A2 


FE 




528 




LDX 


#$FE 




FB6D 


B5 


54 




529 


MUL3 


LDA 


XTNDL+2,X 


ADD MPLCND (AUX) 


FB6F 


75 


56 




530 




ADC 


AUXL+2,X 


TO PARTIAL PROD 


FB71 


95 


54 




531 




STA 


XTNDL+2,X 


(XTND) 


FB73 


E8 






532 




INX 






FB74 


D0 


F7 




533 




BNE 


MUL3 




FB76 


A2 


03 




534 


MUL4 


LDX 


#$03 




FB78 


76 






535 


MUL5 


DFB 


$76 




FB79 


50 






536 




DFB 


$50 




FB7A 


CA 






537 




DEX 






FB7B 


10 


FB 




538 




BPL 


MUL5 




FB7D 


88 






539 




DEY 






FB7E 


D0 


E5 




540 




BNE 


MUL2 




FB80 


60 






541 




RTS 






FB81 


20 


A4 


FB 


542 


DIVPM 


JSR 


MD1 


ABS VAL OF AC, AUX. 


FB84 


A0 


10 




543 


DIV 


LDY 


#$10 ; INDEX FOR 16 BITS 


FB86 


06 


50 




544 


DIV2 


ASL 


ACL 




FB88 


26 


51 




545 




ROL 


ACH 




FB8A 


26 


52 




546 




ROL 


XTNDL ;XTND/AUX 


FB8C 


26 


53 




547 




ROL 


XTNDH 


TO AC. 


FB8E 


38 






548 




SEC 






FB8F 


A5 


52 




549 




LDA 


XTNDL 




FB91 


E5 


54 




550 




SBC 


AUXL ;MOD TO XTND . 


FB93 


AA 






551 




TAX 






FB94 


A5 


53 




552 




LDA 


XTNDH 




FB96 


E5 


55 




553 




SBC 


AUXH 




FB98 


90 


06 




554 




BCC 


DIV3 




FB9A 


86 


52 




555 




STX 


XTNDL 




FB9C 


85 


53 




556 




STA 


XTNDH 




FB9E 


E6 


50 




557 




INC 


ACL 




FBA0 


88 






558 


DIV3 


DEY 






FBA1 


D0 


E3 




559 




BNE 


DIV2 




FBA3 


60 






560 




RTS 






FBA4 


A0 


00 




561 


MD1 


LDY 


#$00 


ABS VAL OF AC, AUX 


FBA6 


84 


2F 




562 




STY 


SIGN 


WITH RESULT SIGN 


FBA8 


A2 


54 




563 




LDX 


#AUXL 


IN LSB OF SIGN. 


FBAA 


20 


AF 


FB 


564 




JSR 


MD3 




FBAD 


A2 


50 




565 




LDX 


#ACL 




FBAF 


B5 


01 




566 


MD3 


LDA 


LOCl.X ;X SPECIFIES AC OR AUX 


FBB1 


10 


0D 




567 




BPL 


MDRTS 




FBB3 


38 






568 




SEC 






FBB4 


98 






569 




TYA 






FBB5 


F5 


00 




570 




SBC 


LOC0,X ;COMPL SPECIFIED REG 



APPLE II SYSTEM MONITOR 



Apple Computer 



1977 



11 of 11 



V Apple-II Computer Information V 



FBB7 


95 


00 




571 




STA 


LOCO,X 


IF NEG. 


FBB9 


98 






572 




TYA 






FBBA 


F5 


01 




573 




SBC 


LOCl,X 




FBBC 


95 


01 




574 




STA 


LOCl,X 




FBBE 


E6 


2F 




575 




INC 


SIGN 




FBC0 


60 






576 


MDRTS 


RTS 






FBC1 


48 






577 


BASCALC 


PHA 




CALC BASE ADR IN BASL, H 


FBC2 


4A 






578 




LSR 




FOR GIVEN LINE NO 


FBC3 


29 


03 




579 




AND 


#$03 


0<=LINE N0.<=$17 


FBC5 


09 


04 




580 




ORA 


#$04 


ARG=0O0ABCDE, GENERATE 


FBC7 


85 


29 




581 




STA 


BASH 


BASH=0O0O01CD 


FBC9 


68 






582 




PLA 




AND 


FBCA 


29 


18 




583 




AND 


#$18 


BASL=EABAB0O0 


FBCC 


90 


02 




584 




BCC 


BSCLC2 




FBCE 


69 


7F 




585 




ADC 


#$7F 




FBD0 


85 


28 




586 


BSCLC2 


STA 


BASL 




FBD2 


0A 






587 




ASL 






FBD3 


0A 






588 




ASL 






FBD4 


05 


28 




589 




ORA 


BASL 




FBD6 


85 


28 




590 




STA 


BASL 




FBD8 


60 






591 




RTS 






FBD9 


C9 


87 




592 


BELLI 


CMP 


#$87 


BELL CHAR? (CNTRL-G) 


FBDB 


D0 


12 




593 




BNE 


RTS2B 


NO, RETURN 


FBDD 


A9 


40 




594 




LDA 


#$40 


DELAY .01 SECONDS 


FBDF 


20 


A8 


FC 


595 




JSR 


WAIT 




FBE2 


A0 


C0 




596 




LDY 


#$C0 




FBE4 


A9 


0C 




597 


BELL2 


LDA 


#$0C ; TOGGLE SPEAKER AT 


FBE6 


20 


A8 


FC 


598 




JSR 


WAIT 


1 KHZ FOR .1 SEC. 


FBE9 


AD 


30 


CO 


599 




LDA 


SPKR 




FBEC 


88 






600 




DEY 






FBED 


D0 


F5 




601 




BNE 


BELL2 




FBEF 


60 






602 


RTS2B 


RTS 






FBF0 


A4 


24 




603 


STOADV 


LDY 


CH 


CURSOR H INDEX TO Y-REG 


FBF2 


91 


28 




604 




STA 


(BASL) ,Y 


STORE CHAR IN LINE 


FBF4 


E6 


24 




605 


ADVANCE 


INC 


CH 


INCREMENT CURSOR H INDEX 


FBF6 


A5 


24 




606 




LDA 


CH 


(MOVE RIGHT) 


FBF8 


C5 


21 




607 




CMP 


WNDWDTH 


BEYOND WINDOW WIDTH? 


FBFA 


B0 


66 




608 




BCS 


CR 


YES CR TO NEXT LINE 


FBFC 


60 






609 


RTS3 


RTS 




NO, RETURN 


FBFD 


C9 


A0 




610 


VIDOUT 


CMP 


#$A0 


CONTROL CHAR? 


FBFF 


B0 


EF 




611 




BCS 


STOADV 


NO, OUTPUT IT. 


FC01 


A8 






612 




TAY 




INVERSE VIDEO? 


FC02 


10 


EC 




613 




BPL 


STOADV 


YES, OUTPUT IT. 


FC04 


C9 


8D 




614 




CMP 


#$8D 


CR? 


FC06 


F0 


5A 




615 




BEQ 


CR 


YES. 


FC08 


C9 


8A 




616 




CMP 


#$8A 


LINE FEED? 


FC0A 


F0 


5A 




617 




BEQ 


LF 


IF SO, DO IT. 


FC0C 


C9 


88 




618 




CMP 


#$88 


BACK SPACE? (CNTRL-H) 


FC0E 


D0 


C9 




619 




BNE 


BELLI 


NO, CHECK FOR BELL. 


FC10 


C6 


24 




620 


BS 


DEC 


CH 


DECREMENT CURSOR H INDEX 


FC12 


10 


E8 




621 




BPL 


RTS 3 


IF POS, OK. ELSE MOVE UP 


FC14 


A5 


21 




622 




LDA 


WNDWDTH 


SET CH TO WNDWDTH -1 


FC16 


85 


24 




623 




STA 


CH 




FC18 


C6 


24 




624 




DEC 


CH ; (RIGHTMOST SCREEN POS) 


FC1A 


A5 


22 




625 


UP 


LDA 


WNDTOP ; CURSOR V INDEX 
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FC1C 


C5 


25 




626 




CMP 


CV 




FC1E 


B0 


0B 




627 




BCS 


RTS4 


IF TOP LINE THEN RETURN 


FC20 


C6 


25 




628 




DEC 


CV 


DEC CURSOR V-INDEX 


FC22 


A5 


25 




629 


VTAB 


LDA 


CV 


GET CURSOR V-INDEX 


FC24 


20 


CI 


FB 


630 


VTABZ 


JSR 


BASCALC 


GENERATE BASE ADR 


FC27 


65 


20 




631 




ADC 


WNDLFT 


ADD WINDOW LEFT INDEX 


FC29 


85 


28 




632 




STA 


BASL 


TO BASL 


FC2B 


60 






633 


RTS4 


RTS 






FC2C 


49 


C0 




634 


ESC1 


EOR 


#$C0 


ESC? 


FC2E 


F0 


28 




635 




BEQ 


HOME 


IF SO, DO HOME AND CLEAR 


FC30 


69 


FD 




636 




ADC 


#$FD 


ESC-A OR B CHECK 


FC32 


90 


C0 




637 




BCC 


ADVANCE 


A, ADVANCE 


FC34 


F0 


DA 




638 




BEQ 


BS 


B, BACKSPACE 


FC36 


69 


FD 




639 




ADC 


#$FD 


ESC-C OR D CHECK 


FC38 


90 


2C 




640 




BCC 


LF 


C, DOWN 


FC3A 


F0 


DE 




641 




BEQ 


UP 


D, GO UP 


FC3C 


69 


FD 




642 




ADC 


#$FD 


ESC-E OR F CHECK 


FC3E 


90 


5C 




643 




BCC 


CLREOL 


E, CLEAR TO END OF LINE 


FC40 


D0 


E9 




644 




BNE 


RTS4 


NOT F, RETURN 


FC42 


A4 


24 




645 


CLREOP 


LDY 


CH 


CURSOR H TO Y INDEX 


FC44 


A5 


25 




646 




LDA 


CV 


CURSOR V TO A-REGISTER 


FC46 


48 






647 


CLEOP1 


PHA 




SAVE CURRENT LINE ON STK 


FC47 


20 


24 


FC 


648 




JSR 


VTABZ 


CALC BASE ADDRESS 


FC4A 


20 


9E 


FC 


649 




JSR 


CLEOLZ 


CLEAR TO EOL, SET CARRY 


FC4D 


A0 


00 




650 




LDY 


#$00 


CLEAR FROM H INDEX=0 FOR REST 


FC4F 


68 






651 




PLA 




INCREMENT CURRENT LINE 


FC50 


69 


00 




652 




ADC 


#$00 


(CARRY IS SET) 


FC52 


C5 


23 




653 




CMP 


WNDBTM 


DONE TO BOTTOM OF WINDOW? 


FC54 


90 


F0 




654 




BCC 


CLEOP1 


NO, KEEP CLEARING LINES 


FC56 


B0 


CA 




655 




BCS 


VTAB 


YES, TAB TO CURRENT LINE 


FC58 


A5 


22 




656 


HOME 


LDA 


WNDTOP 


INIT CURSOR V 


FC5A 


85 


25 




657 




STA 


CV 


AND H-INDICES 


FC5C 


A0 


00 




658 




LDY 


#$00 




FC5E 


84 


24 




659 




STY 


CH ;THEN CLEAR TO END OF PAGE 


FC60 


F0 


E4 




660 




BEQ 


CLEOP1 




FC62 


A9 


00 




661 


CR 


LDA 


#$00 


CURSOR TO LEFT OF INDEX 


FC64 


85 


24 




662 




STA 


CH 


(RET CURSOR H=0) 


FC66 


E6 


25 




663 


LF 


INC 


CV 


INCR CURSOR V(DOWN 1 LINE) 


FC68 


A5 


25 




664 




LDA 


CV 




FC6A 


C5 


23 




665 




CMP 


WNDBTM 


OFF SCREEN? 


FC6C 


90 


B6 




666 




BCC 


VTABZ 


NO, SET BASE ADDR 


FC6E 


C6 


25 




667 




DEC 


CV 


DECR CURSOR V (BACK TO BOTTOM) 


FC70 


A5 


22 




668 


SCROLL 


LDA 


WNDTOP 


START AT TOP OF SCRL WNDW 


FC72 


48 






669 




PHA 






FC73 


20 


24 


FC 


670 




JSR 


VTABZ 


GENERATE BASE ADR 


FC76 


A5 


28 




671 


SCRL1 


LDA 


BASL 


COPY BASL, H 


FC78 


85 


2A 




672 




STA 


BAS2L 


TO BAS2L, H 


FC7A 


A5 


29 




673 




LDA 


BASH 




FC7C 


85 


2B 




674 




STA 


BAS2H 




FC7E 


A4 


21 




675 




LDY 


WNDWDTH ;INIT Y TO RIGHTMOST INDEX 


FC80 


88 






676 




DEY 




OF SCROLLING WINDOW 


FC81 


68 






677 




PLA 






FC82 


69 


01 




678 




ADC 


#$01 


INCR LINE NUMBER 


FC84 


C5 


23 




679 




CMP 


WNDBTM 


DONE? 


FC86 


B0 


0D 




680 




BCS 


SCRL3 


YES, FINISH 
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FC88 


48 






681 




PHA 






FC89 


20 


24 


FC 


682 




JSR 


VTABZ ; FORM BASL, H (BASE ADDR) 


FC8C 


Bl 


28 




683 


SCRL2 


LDA 


(BASL) , Y ;MOVE A CHR UP ON LINE 


FC8E 


91 


2A 




684 




STA 


(BAS2L) ,Y 




FC90 


88 






685 




DEY 


; NEXT CHAR OF LINE 


FC91 


10 


F9 




686 




BPL 


SCRL2 




FC93 


30 


El 




687 




BMI 


SCRL1 


NEXT LINE (ALWAYS TAKEN) 


FC95 


A0 


00 




688 


SCRL3 


LDY 


#$00 


CLEAR BOTTOM LINE 


FC97 


20 


9E 


FC 


689 




JSR 


CLEOLZ 


GET BASE ADDR FOR BOTTOM LINE 


FC9A 


B0 


86 




690 




BCS 


VTAB 


CARRY IS SET 


FC9C 


A4 


24 




691 


CLREOL 


LDY 


CH 


CURSOR H INDEX 


FC9E 


A9 


A0 




692 


CLEOLZ 


LDA 


#$A0 




FCA0 


91 


28 




693 


CLE0L2 


STA 


(BASL) , Y ; STORE BLANKS FROM 'HERE' 


FCA2 


C8 






694 




INY 




TO END OF LINES (WNDWDTH) 


FCA3 


C4 


21 




695 




CPY 


WNDWDTH 




FCA5 


90 


F9 




696 




BCC 


CLE0L2 




FCA7 


60 






697 




RTS 






FCA8 


38 






698 


WAIT 


SEC 






FCA9 


48 






699 


WAIT2 


PHA 






FCAA 


E9 


01 




700 


WAIT3 


SBC 


#$01 




FCAC 


D0 


FC 




701 




BNE 


WAIT3 ; 1.0204 USEC 


FCAE 


68 






702 




PLA 


; (13+27/2*A+5/2*A*A) 


FCAF 


E9 


01 




703 




SBC 


#$01 




FCB1 


D0 


F6 




704 




BNE 


WAIT2 




FCB3 


60 






705 




RTS 






FCB4 


E6 


42 




706 


NXTA4 


INC 


A4L ;INCR 2 -BYTE A4 


FCB6 


D0 


02 




707 




BNE 


NXTA1 


AND Al 


FCB8 


E6 


43 




708 




INC 


A4H 




FCBA 


A5 


3C 




709 


NXTA1 


LDA 


AIL ;INCR 2 - BYTE Al. 


FCBC 


C5 


3E 




710 




CMP 


A2L 




FCBE 


A5 


3D 




711 




LDA 


A1H 


AND COMPARE TO A2 


FCC0 


E5 


3F 




712 




SBC 


A2H 




FCC2 


E6 


3C 




713 




INC 


AIL 


(CARRY SET IF >=) 


FCC4 


D0 


02 




714 




BNE 


RTS4B 




FCC6 


E6 


3D 




715 




INC 


A1H 




FCC8 


60 






716 


RTS4B 


RTS 






FCC9 


A0 


4B 




717 


HEADR 


LDY 


#$4B 


WRITE A*256 'LONG 1' 


FCCB 


20 


DB 


FC 


718 




JSR 


ZERDLY 


HALF CYCLES 


FCCE 


D0 


F9 




719 




BNE 


HEADR 


(650 USEC EACH) 


FCD0 


69 


FE 




720 




ADC 


#$FE 




FCD2 


B0 


F5 




721 




BCS 


HEADR 


THEN A 'SHORT 0' 


FCD4 


A0 


21 




722 




LDY 


#$21 


(400 USEC) 


FCD6 


20 


DB 


FC 


723 


WRBIT 


JSR 


ZERDLY 


WRITE TWO HALF CYCLES 


FCD9 


C8 






724 




INY 




OF 250 USEC ( '0' ) 


FCDA 


C8 






725 




INY 




OR 500 USEC ( '0' ) 


FCDB 


88 






726 


ZERDLY 


DEY 






FCDC 


D0 


FD 




727 




BNE 


ZERDLY 




FCDE 


90 


05 




728 




BCC 


WRTAPE 


Y IS COUNT FOR 


FCE0 


A0 


32 




729 




LDY 


#$32 


TIMING LOOP 


FCE2 


88 






730 


ONEDLY 


DEY 






FCE3 


D0 


FD 




731 




BNE 


ONEDLY 




FCE5 


AC 


20 


CO 


732 


WRTAPE 


LDY 


TAPEOUT 




FCE8 


A0 


2C 




733 




LDY 


#$2C 




FCEA 


CA 






734 




DEX 






FCEB 


60 






735 




RTS 
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FCEC 


A2 


08 




736 


RDBYTE 


LDX 


#$08 


8 BITS TO READ 


FCEE 


48 






737 


RDBYT2 


PHA 




READ TWO TRANSITIONS 


FCEF 


20 


FA 


FC 


738 




JSR 


RD2BIT 


(FIND EDGE) 


FCF2 


68 






739 




PLA 






FCF3 


2A 






740 




ROL 




NEXT BIT 


FCF4 


A0 


3A 




741 




LDY 


#$3A ; COUNT FOR SAMPLES 


FCF6 


CA 






742 




DEX 






FCF7 


D0 


F5 




743 




BNE 


RDBYT2 




FCF9 


60 






744 




RTS 






FCFA 


20 


FD 


FC 


745 


RD2BIT 


JSR 


RDBIT 




FCFD 


88 






746 


RDBIT 


DEY 




DECR Y UNTIL 


FCFE 


AD 


60 


CO 


747 




LDA 


TAPEIN 


TAPE TRANSITION 


FD01 


45 


2F 




748 




EOR 


LASTIN 




FD03 


10 


F8 




749 




BPL 


RDBIT 




FD05 


45 


2F 




750 




EOR 


LASTIN 




FD07 


85 


2F 




751 




STA 


LASTIN 




FD09 


CO 


80 




752 




CPY 


#$80 ;SET CARRY ON Y 


FD0B 


60 






753 




RTS 






FD0C 


A4 


24 




754 


RDKEY 


LDY 


CH 




FD0E 


Bl 


28 




755 




LDA 


(BASL) , Y ;SET SCREEN TO FLASH 


FD10 


48 






756 




PHA 






FD11 


29 


3F 




757 




AND 


#$3F 




FD13 


09 


40 




758 




ORA 


#$40 




FD15 


91 


28 




759 




STA 


(BASL) ,Y 




FD17 


68 






760 




PLA 






FD18 


6C 


38 


00 


761 




JMP 


(KSWL) ;G0 TO USER KEY- IN 


FD1B 


E6 


4E 




762 


KEYIN 


INC 


RNDL 




FD1D 


D0 


02 




763 




BNE 


KEYIN2 


INCR RND NUMBER 


FD1F 


E6 


4F 




764 




INC 


RNDH 




FD21 


2C 


00 


CO 


765 


KEYIN2 


BIT 


KBD 


KEY DOWN? 


FD24 


10 


F5 




766 




BPL 


KEYIN 


LOOP 


FD26 


91 


28 




767 




STA 


(BASL) ,Y 


REPLACE FLASHING SCREEN 


FD28 


AD 


00 


CO 


768 




LDA 


KBD 


GET KEYCODE 


FD2B 


2C 


10 


CO 


769 




BIT 


KBDSTRB 


CLR KEY STROBE 


FD2E 


60 






770 




RTS 






FD2F 


20 


0C 


FD 


771 


ESC 


JSR 


RDKEY 


GET KEYCODE 


FD32 


20 


2C 


FC 


772 




JSR 


ESC1 


HANDLE ESC FUNC. 


FD35 


20 


0C 


FD 


773 


RDCHAR 


JSR 


RDKEY 


READ KEY 


FD38 


C9 


9B 




774 




CMP 


#$9B 


ESC? 


FD3A 


F0 


F3 




775 




BEQ 


ESC 


YES, DON'T RETURN 


FD3C 


60 






776 




RTS 






FD3D 


A5 


32 




777 


NOTCR 


LDA 


INVFLG 




FD3F 


48 






778 




PHA 






FD40 


A9 


FF 




779 




LDA 


#$FF 




FD42 


85 


32 




780 




STA 


INVFLG ;ECHO USER LINE 


FD44 


BD 


00 


02 


781 




LDA 


IN.X 


NON INVERSE 


FD47 


20 


ED 


FD 


782 




JSR 


COUT 




FD4A 


68 






783 




PLA 






FD4B 


85 


32 




784 




STA 


INVFLG 




FD4D 


BD 


00 


02 


785 




LDA 


IN,X 




FD50 


C9 


88 




786 




CMP 


#$88 ; CHECK FOR EDIT KEYS 


FD52 


F0 


ID 




787 




BEQ 


BCKSPC 


BS, CTRL-X 


FD54 


C9 


98 




788 




CMP 


#$98 




FD56 


F0 


0A 




789 




BEQ 


CANCEL 




FD58 


E0 


F8 




790 




CPX 


#$F8 ; MARGIN? 
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FD5A 


90 


03 




791 




BCC 


NOTCR1 




FD5C 


20 


3A 


FF 


792 




JSR 


BELL 


YES, SOUND BELL 


FD5F 


E8 






793 


NOTCR1 


INX 


; ADVANCE INPUT INDEX 


FD60 


D0 


13 




794 




BNE 


NXTCHAR 




FD62 


A9 


DC 




795 


CANCEL 


LDA 


#$DC ; BACKSLASH AFTER CANCELLED 


FD64 


20 


ED 


FD 


796 




JSR 


COUT 




FD67 


20 


8E 


FD 


797 


GETLNZ 


JSR 


CROUT ; OUTPUT CR 


FD6A 


A5 


33 




798 


GETLN 


LDA 


PROMPT 




FD6C 


20 


ED 


FD 


799 




JSR 


COUT 


OUTPUT PROMPT CHAR 


FD6F 


A2 


01 




800 




LDX 


#$01 


INIT INPUT INDEX 


FD71 


8A 






801 


BCKSPC 


TXA 




WILL BACKSPACE TO 


FD72 


F0 


F3 




802 




BEQ 


GETLNZ 




FD74 


CA 






803 




DEX 






FD75 


20 


35 


FD 


804 


NXTCHAR 


JSR 


RDCHAR 




FD78 


C9 


95 




805 




CMP 


#PICK ;USE SCREEN CHAR 


FD7A 


D0 


02 




806 




BNE 


CAPTST 


FOR CTRL-U 


FD7C 


Bl 


28 




807 




LDA 


(BASL) ,Y 




FD7E 


C9 


E0 




808 


CAPTST 


CMP 


#$E0 




FD80 


90 


02 




809 




BCC 


ADDINP ; CONVERT TO CAPS 


FD82 


29 


DF 




810 




AND 


#$DF 




FD84 


9D 


00 


02 


811 


ADDINP 


STA 


IN,X ; ADD TO INPUT BUF 


FD87 


C9 


8D 




812 




CMP 


#$8D 




FD89 


D0 


B2 




813 




BNE 


NOTCR 




FD8B 


20 


9C 


FC 


814 




JSR 


CLREOL ;CLR TO EOL IF CR 


FD8E 


A9 


8D 




815 


CROUT 


LDA 


#$8D 




FD90 


D0 


5B 




816 




BNE 


COUT 




FD92 


A4 


3D 




817 


PRA1 


LDY 


A1H ; PRINT CR,A1 IN HEX 


FD94 


A6 


3C 




818 




LDX 


AIL 




FD96 


20 


8E 


FD 


819 


PRYX2 


JSR 


CROUT 




FD99 


20 


40 


F9 


820 




JSR 


PRNTYX 




FD9C 


A0 


00 




821 




LDY 


#$00 




FD9E 


A9 


AD 




822 




LDA 


#$AD ; PRINT ' - ' 


FDA0 


4C 


ED 


FD 


823 




JMP 


COUT 




FDA3 


A5 


3C 




824 


XAM8 


LDA 


AIL 




FDA5 


09 


07 




825 




ORA 


#$07 ;SET TO FINISH AT 


FDA7 


85 


3E 




826 




STA 


A2L 


MOD 8=7 


FDA9 


A5 


3D 




827 




LDA 


A1H 




FDAB 


85 


3F 




828 




STA 


A2H 




FDAD 


A5 


3C 




829 


MODSCHK 


LDA 


AIL 




FDAF 


29 


07 




830 




AND 


#$07 




FDB1 


D0 


03 




831 




BNE 


DATAOUT 




FDB3 


20 


92 


FD 


832 


XAM 


JSR 


PRA1 




FDB6 


A9 


A0 




833 


DATAOUT 


LDA 


#$A0 




FDB8 


20 


ED 


FD 


834 




JSR 


COUT 


OUTPUT BLANK 


FDBB 


Bl 


3C 




835 




LDA 


(A1L),Y 




FDBD 


20 


DA 


FD 


836 




JSR 


PRBYTE ; OUTPUT BYTE IN HEX 


FDC0 


20 


BA 


FC 


837 




JSR 


NXTA1 




FDC3 


90 


E8 




838 




BCC 


MODSCHK 


CHECK IF TIME TO, 


FDC5 


60 






839 


RTS4C 


RTS 




PRINT ADDR 


FDC6 


4A 






840 


XAMPM 


LSR 




DETERMINE IF MON 


FDC7 


90 


EA 




841 




BCC 


XAM 


MODE IS XAM 


FDC9 


4A 






842 




LSR 




ADD, OR SUB 


FDCA 


4A 






843 




LSR 






FDCB 


A5 


3E 




844 




LDA 


A2L 




FDCD 


90 


02 




845 




BCC 


ADD 
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FDCF 


49 


FF 




846 




EOR 


#$FF ;SUB: FORM 2'S COMPLEMENT 


FDD1 


65 


3C 




847 


ADD 


ADC 


AIL 




FDD3 


48 






848 




PHA 






FDD4 


A9 


BD 




849 




LDA 


#$BD 




FDD6 


20 


ED 


FD 


850 




JSR 


COUT ; PRINT '=', THEN RESULT 


FDD9 


68 






851 




PLA 






FDDA 


48 






852 


PRBYTE 


PHA 


; PRINT BYTE AS 2 HEX 


FDDB 


4A 






853 




LSR 




DIGITS, DESTROYS A-REG 


FDDC 


4A 






854 




LSR 






FDDD 


4A 






855 




LSR 






FDDE 


4A 






856 




LSR 






FDDF 


20 


E5 


FD 


857 




JSR 


PRHEXZ 




FDE2 


68 






858 




PLA 






FDE3 


29 


0F 




859 


PRHEX 


AND 


#$0F ; PRINT HEX DIG IN A-REG 


FDE5 


09 


B0 




860 


PRHEXZ 


ORA 


#$B0 


LSB'S 


FDE7 


C9 


BA 




861 




CMP 


#$BA 




FDE9 


90 


02 




862 




BCC 


COUT 




FDEB 


69 


06 




863 




ADC 


#$06 




FDED 


6C 


36 


00 


864 


COUT 


JMP 


(CSWL) ; VECTOR TO USER OUTPUT ROUTINE 


FDF0 


C9 


A0 




865 


COUT1 


CMP 


#$A0 




FDF2 


90 


02 




866 




BCC 


COUTZ 


DON'T OUTPUT CTRL' S INVERSE 


FDF4 


25 


32 




867 




AND 


INVFLG 


MASK WITH INVERSE FLAG 


FDF6 


84 


35 




868 


COUTZ 


STY 


YSAV1 


SAV Y-REG 


FDF8 


48 






869 




PHA 




SAV A-REG 


FDF9 


20 


FD 


FB 


870 




JSR 


VIDOUT 


OUTPUT A-REG AS ASCII 


FDFC 


68 






871 




PLA 




RESTORE A-REG 


FDFD 


A4 


35 




872 




LDY 


YSAV1 


AND Y-REG 


FDFF 


60 






873 




RTS 




THEN RETURN 


FE00 


C6 


34 




874 


BL1 


DEC 


YSAV 




FE02 


F0 


9F 




875 




BEQ 


XAM8 




FE04 


CA 






876 


BLANK 


DEX 




BLANK TO MON 


FE05 


D0 


16 




877 




BNE 


SETMDZ 


AFTER BLANK 


FE07 


C9 


BA 




878 




CMP 


#$BA 


DATA STORE MODE? 


FE09 


D0 


BB 




879 




BNE 


XAMPM 


NO, XAM, ADD, OR SUB 


FE0B 


85 


31 




880 


STOR 


STA 


MODE 


KEEP IN STORE MODE 


FE0D 


A5 


3E 




881 




LDA 


A2L 




FE0F 


91 


40 




882 




STA 


(A3L),Y ; STORE AS LOW BYTE AS (A3) 


FE11 


E6 


40 




883 




INC 


A3L 




FE13 


D0 


02 




884 




BNE 


RTS 5 ;INCR A3, RETURN 


FE15 


E6 


41 




885 




INC 


A3H 




FE17 


60 






886 


RTS5 


RTS 






FE18 


A4 


34 




887 


SETMODE 


LDY 


YSAV ; SAVE CONVERTED ' : ' , ' + ' , 


FE1A 


B9 


FF 


01 


888 




LDA 


IN-1,Y 


' - ' , ' . ' AS MODE. 


FE1D 


85 


31 




889 


SETMDZ 


STA 


MODE 




FE1F 


60 






890 




RTS 






FE20 


A2 


01 




891 


LT 


LDX 


#$01 




FE22 


B5 


3E 




892 


LT2 


LDA 


A2L,X ;COPY A2 (2 BYTES) TO 


FE24 


95 


42 




893 




STA 


A4L,X 


A4 AND A5 


FE26 


95 


44 




894 




STA 


A5L,X 




FE28 


CA 






895 




DEX 






FE29 


10 


F7 




896 




BPL 


LT2 




FE2B 


60 






897 




RTS 






FE2C 


Bl 


3C 




898 


MOVE 


LDA 


(A1L),Y ;MOVE (Al TO A2) TO 


FE2E 


91 


42 




899 




STA 


(A4L),Y 


(A4) 


FE30 


20 


B4 


FC 


900 




JSR 


NXTA4 
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FE33 


90 


F7 




901 




BCC 


MOVE 




FE35 


60 






902 




RTS 






FE36 


Bl 


3C 




903 


VFY 


LDA 


(A1L),Y ; VERIFY (Al TO A2) WITH 


FE38 


Dl 


42 




904 




CMP 


(A4L),Y 


(A4) 


FE3A 


F0 


1C 




905 




BEQ 


VFYOK 




FE3C 


20 


92 


FD 


906 




JSR 


PRA1 




FE3F 


Bl 


3C 




907 




LDA 


(A1L),Y 




FE41 


20 


DA 


FD 


908 




JSR 


PRBYTE 




FE44 


A9 


A0 




909 




LDA 


#$A0 




FE46 


20 


ED 


FD 


910 




JSR 


COUT 




FE49 


A9 


A8 




911 




LDA 


#$A8 




FE4B 


20 


ED 


FD 


912 




JSR 


COUT 




FE4E 


Bl 


42 




913 




LDA 


(A4L),Y 




FE50 


20 


DA 


FD 


914 




JSR 


PRBYTE 




FE53 


A9 


A9 




915 




LDA 


#$A9 




FE55 


20 


ED 


FD 


916 




JSR 


COUT 




FE58 


20 


B4 


FC 


917 


VFYOK 


JSR 


NXTA4 




FE5B 


90 


D9 




918 




BCC 


VFY 




FE5D 


60 






919 




RTS 






FE5E 


20 


75 


FE 


920 


LIST 


JSR 


A1PC 


MOVE Al (2 BYTES) TO 


FE61 


A9 


14 




921 




LDA 


#$14 


PC IF SPEC'D AND 


FE63 


48 






922 


LIST2 


PHA 




DISEMBLE 20 INSTRS 


FE64 


20 


D0 


F8 


923 




JSR 


INSTDSP 




FE67 


20 


53 


F9 


924 




JSR 


PCADJ ; ADJUST PC EACH INSTR 


FE6A 


85 


3A 




925 




STA 


PCL 




FE6C 


84 


3B 




926 




STY 


PCH 




FE6E 


68 






927 




PLA 






FE6F 


38 






928 




SEC 






FE70 


E9 


01 




929 




SBC 


#$01 ; NEXT OF 20 INSTRS 


FE72 


D0 


EF 




930 




BNE 


LIST2 




FE74 


60 






931 




RTS 






FE75 


8A 






932 


A1PC 


TXA 




IF USER SPEC'D ADR 


FE76 


F0 


07 




933 




BEQ 


A1PCRTS 


COPY FROM Al TO PC 


FE78 


B5 


3C 




934 


A1PCLP 


LDA 


A1L.X 




FE7A 


95 


3A 




935 




STA 


PCL,X 




FE7C 


CA 






936 




DEX 






FE7D 


10 


F9 




937 




BPL 


A1PCLP 




FE7F 


60 






938 


A1PCRTS 


RTS 






FE80 


A0 


3F 




939 


SETINV 


LDY 


#$3F 


SET FOR INVERSE VID 


FE82 


D0 


02 




940 




BNE 


SETIFLG 


VIA COUT1 


FE84 


A0 


FF 




941 


SETNORM 


LDY 


#$FF 


SET FOR NORMAL VID 


FE86 


84 


32 




942 


SETIFLG 


STY 


INVFLG 




FE88 


60 






943 




RTS 






FE89 


A9 


00 




944 


SETKBD 


LDA 


#$00 ; SIMULATE PORT #0 INPUT 


FE8B 


85 


3E 




945 


IN PORT 


STA 


A2L 


SPECIFIED (KEYIN ROUTINE) 


FE8D 


A2 


38 




946 


INPRT 


LDX 


#KSWL 




FE8F 


A0 


IB 




947 




LDY 


#KEYIN 




FE91 


D0 


08 




948 




BNE 


IOPRT 




FE93 


A9 


00 




949 


SETVID 


LDA 


#$00 ; SIMULATE PORT #0 OUTPUT 


FE95 


85 


3E 




950 


OUTPORT 


STA 


A2L 


SPECIFIED (COUT1 ROUTINE) 


FE97 


A2 


36 




951 


OUTPRT 


LDX 


#CSWL 




FE99 


A0 


F0 




952 




LDY 


#COUTl 




FE9B 


A5 


3E 




953 


IOPRT 


LDA 


A2L ;SET RAM IN/OUT VECTORS 


FE9D 


29 


0F 




954 




AND 


#$0F 




FE9F 


F0 


06 




955 




BEQ 


IOPRT1 





APPLE II SYSTEM MONITOR 



Apple Computer 



1977 



18 of 18 



V Apple-II Computer Information V 



FEA1 


09 


C0 




956 




ORA 


#I0ADR/256 




FEA3 


A0 


00 




957 




LDY 


#$00 




FEA5 


F0 


02 




958 




BEQ 


I0PRT2 




FEA7 


A9 


FD 




959 


IOPRT1 


LDA 


#C0UTl/256 




FEA9 


94 


00 




960 


I0PRT2 


STY 


LOC0,X 




FEAB 


95 


01 




961 




STA 


LOCl,X 




FEAD 


60 






962 




RTS 






FEAE 


EA 






963 




NOP 






FEAF 


EA 






964 




NOP 






FEB0 


4C 


00 


E0 


965 


XBASIC 


JMP 


BASIC 


TO BASIC WITH SCRATCH 


FEB3 


4C 


03 


E0 


966 


BASCONT 


JMP 


BASIC2 


CONTINUE BASIC 


FEB6 


20 


75 


FE 


967 


GO 


JSR 


A1PC 


ADR TO PC IF SPEC'D 


FEB9 


20 


3F 


FF 


968 




JSR 


RESTORE 


RESTORE META REGS 


FEBC 


6C 


3A 


00 


969 




JMP 


(PCL) 


GO TO USER SUBR 


FEBF 


4C 


D7 


FA 


970 


REGZ 


JMP 


REGDSP 


TO REG DISPLAY 


FEC2 


C6 


34 




971 


TRACE 


DEC 


YSAV 




FEC4 


20 


75 


FE 


972 


STEPZ 


JSR 


A1PC 


ADR TO PC IF SPEC'D 


FEC7 


4C 


43 


FA 


973 




JMP 


STEP 


TAKE ONE STEP 


FECA 


4C 


F8 


03 


974 


USR 


JMP 


USRADR 


TO USR SUBR AT USRADR 


FECD 


A9 


40 




975 


WRITE 


LDA 


#$40 




FECF 


20 


C9 


FC 


976 




JSR 


HEADR ;WRITE 10-SEC HEADER 


FED2 


A0 


27 




977 




LDY 


#$27 




FED4 


A2 


00 




978 


WR1 


LDX 


#$00 




FED6 


41 


3C 




979 




EOR 


(A1L.X) 




FED8 


48 






980 




PHA 






FED9 


Al 


3C 




981 




LDA 


(A1L.X) 




FEDB 


20 


ED 


FE 


982 




JSR 


WRBYTE 




FEDE 


20 


BA 


FC 


983 




JSR 


NXTA1 




FEE1 


A0 


ID 




984 




LDY 


#$1D 




FEE3 


68 






985 




PLA 






FEE4 


90 


EE 




986 




BCC 


WR1 




FEE6 


A0 


22 




987 




LDY 


#$22 




FEE8 


20 


ED 


FE 


988 




JSR 


WRBYTE 




FEEB 


F0 


4D 




989 




BEQ 


BELL 




FEED 


A2 


10 




990 


WRBYTE 


LDX 


#$10 




FEEF 


0A 






991 


WRBYT2 


ASL 






FEF0 


20 


D6 


FC 


992 




JSR 


WRBIT 




FEF3 


D0 


FA 




993 




BNE 


WRBYT2 




FEF5 


60 






994 




RTS 






FEF6 


20 


00 


FE 


995 


CRMON 


JSR 


BL1 


HANDLE A CR AS BLANK 


FEF9 


68 






996 




PLA 




THEN POP STACK 


FEFA 


68 






997 




PLA 




AND RTN TO MON 


FEFB 


D0 


6C 




998 




BNE 


MONZ 




FEFD 


20 


FA 


FC 


999 


READ 


JSR 


RD2BIT 


FIND TAPEIN EDGE 


FF00 


A9 


16 




1000 




LDA 


#$16 




FF02 


20 


C9 


FC 


1001 




JSR 


HEADR 


DELAY 3.5 SECONDS 


FF05 


85 


2E 




1002 




STA 


CHKSUM 


INIT CHKSUM=$FF 


FF07 


20 


FA 


FC 


1003 




JSR 


RD2BIT 


FIND TAPEIN EDGE 


FF0A 


A0 


24 




1004 


RD2 


LDY 


#$24 


LOOK FOR SYNC BIT 


FF0C 


20 


FD 


FC 


1005 




JSR 


RDBIT 


(SHORT 0) 


FF0F 


B0 


F9 




1006 




BCS 


RD2 


LOOP UNTIL FOUND 


FF11 


20 


FD 


FC 


1007 




JSR 


RDBIT 


SKIP SECOND SYNC H-CYCLE 


FF14 


A0 


3B 




1008 




LDY 


#$3B 


INDEX FOR 0/1 TEST 


FF16 


20 


EC 


FC 


1009 


RD3 


JSR 


RDBYTE 


READ A BYTE 


FF19 


81 


3C 




1010 




STA 


(A1L.X) 


STORE AT (Al) 
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FF1B 


45 


2E 




1011 




EOR 


CHKSUM 




FF1D 


85 


2E 




1012 




STA 


CHKSUM 


UPDATE RUNNING CHKSUM 


FF1F 


20 


BA 


FC 


1013 




JSR 


NXTA1 


INC Al, COMPARE TO A2 


FF22 


A0 


35 




1014 




LDY 


#$35 


COMPENSATE 0/1 INDEX 


FF24 


90 


F0 




1015 




BCC 


RD3 


LOOP UNTIL DONE 


FF26 


20 


EC 


FC 


1016 




JSR 


RDBYTE 


READ CHKSUM BYTE 


FF29 


C5 


2E 




1017 




CMP 


CHKSUM 




FF2B 


F0 


0D 




1018 




BEQ 


BELL ;GOOD, SOUND BELL AND RETURN 


FF2D 


A9 


C5 




1019 


PRERR 


LDA 


#$C5 




FF2F 


20 


ED 


FD 


1020 




JSR 


COUT ; PRINT "ERR", THEN BELL 


FF32 


A9 


D2 




1021 




LDA 


#$D2 




FF34 


20 


ED 


FD 


1022 




JSR 


COUT 




FF37 


20 


ED 


FD 


1023 




JSR 


COUT 




FF3A 


A9 


87 




1024 


BELL 


LDA 


#$87 ; OUTPUT BELL AND RETURN 


FF3C 


4C 


ED 


FD 


1025 




JMP 


COUT 




FF3F 


A5 


48 




1026 


RESTORE 


LDA 


STATUS 


RESTORE 6502 REG CONTENTS 


FF41 


48 






1027 




PHA 




USED BY DEBUG SOFTWARE 


FF42 


A5 


45 




1028 




LDA 


ACC 




FF44 


A6 


46 




1029 


RESTR1 


LDX 


XREG 




FF46 


A4 


47 




1030 




LDY 


YREG 




FF48 


28 






1031 




PLP 






FF49 


60 






1032 




RTS 






FF4A 


85 


45 




1033 


SAVE 


STA 


ACC ;SAVE 6502 REG CONTENTS 


FF4C 


86 


46 




1034 


SAV1 


STX 


XREG 




FF4E 


84 


47 




1035 




STY 


YREG 




FF50 


08 






1036 




PHP 






FF51 


68 






1037 




PLA 






FF52 


85 


48 




1038 




STA 


STATUS 




FF54 


BA 






1039 




TSX 






FF55 


86 


49 




1040 




STX 


SPNT 




FF57 


D8 






1041 




CLD 






FF58 


60 






1042 




RTS 






FF59 


20 


84 


FE 


1043 


RESET 


JSR 


SETNORM 


SET SCREEN MODE 


FF5C 


20 


2F 


FB 


1044 




JSR 


INIT 


AND INIT KBD/SCREEN 


FF5F 


20 


93 


FE 


1045 




JSR 


SETVID 


AS I/O DEV'S 


FF62 


20 


89 


FE 


1046 




JSR 


SETKBD 




FF65 


D8 






1047 


MON 


CLD 


;MUST SET HEX MODE! 


FF66 


20 


3A 


FF 


1048 




JSR 


BELL 




FF69 


A9 


AA 




1049 


MONZ 


LDA 


#$AA 


'*' PROMPT FOR MON 


FF6B 


85 


33 




1050 




STA 


PROMPT 




FF6D 


20 


67 


FD 


1051 




JSR 


GETLNZ 


READ A LINE 


FF70 


20 


C7 


FF 


1052 




JSR 


ZMODE 


CLEAR MON MODE, SCAN IDX 


FF73 


20 


A7 


FF 


1053 


NXTITM 


JSR 


GETNUM 


GET ITEM, NON-HEX 


FF76 


84 


34 




1054 




STY 


YSAV 


CHAR IN A-REG 


FF78 


A0 


17 




1055 




LDY 


#$17 


X-REG=0 IF NO HEX INPUT 


FF7A 


88 






1056 


CHRSRCH 


DEY 






FF7B 


30 


E8 




1057 




BMI 


MON ;NOT FOUND, GO TO MON 


FF7D 


D9 


CC 


FF 


1058 




CMP 


CHRTBL, Y ; FIND CMND CHAR IN TEL 


FF80 


D0 


F8 




1059 




BNE 


CHRSRCH 




FF82 


20 


BE 


FF 


1060 




JSR 


TOSUB ; FOUND, CALL CORRESPONDING 


FF85 


A4 


34 




1061 




LDY 


YSAV 


SUBROUTINE 


FF87 


4C 


73 


FF 


1062 




JMP 


NXTITM 




FF8A 


A2 


03 




1063 


DIG 


LDX 


#$03 




FF8C 


0A 






1064 




ASL 






FF8D 


0A 






1065 




ASL 


;GOT HEX DIG, 
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FF8E 


0A 






1066 




ASL 




SHIFT INTO A2 


FF8F 


0A 






1067 




ASL 






FF90 


0A 






1068 


NXTBIT 


ASL 






FF91 


26 


3E 




1069 




ROL 


A2L 




FF93 


26 


3F 




1070 




ROL 


A2H 




FF95 


CA 






1071 




DEX 


; LEAVE X=$FF IF DIG 


FF96 


10 


F8 




1072 




BPL 


NXTBIT 




FF98 


A5 


31 




1073 


NXTBAS 


LDA 


MODE 




FF9A 


D0 


06 




1074 




BNE 


NXTBS2 


IF MODE IS ZERO 


FF9C 


B5 


3F 




1075 




LDA 


A2H,X 


THEN COPY A2 TO 


FF9E 


95 


3D 




1076 




STA 


A1H,X 


Al AND A3 


FFA0 


95 


41 




1077 




STA 


A3H,X 




FFA2 


E8 






1078 


NXTBS2 


INX 






FFA3 


F0 


F3 




1079 




BEQ 


NXTBAS 




FFA5 


D0 


06 




1080 




BNE 


NXTCHR 




FFA7 


A2 


00 




1081 


GETNUM 


LDX 


#$00 ; CLEAR A2 


FFA9 


86 


3E 




1082 




STX 


A2L 




FFAB 


86 


3F 




1083 




STX 


A2H 




FFAD 


B9 


00 


02 


1084 


NXTCHR 


LDA 


IN,Y ; GET CHAR 


FFB0 


C8 






1085 




INY 






FFB1 


49 


B0 




1086 




EOR 


#$B0 




FFB3 


C9 


0A 




1087 




CMP 


#$0A 




FFB5 


90 


D3 




1088 




BCC 


DIG ;IF HEX DIG, THEN 


FFB7 


69 


88 




1089 




ADC 


#$88 




FFB9 


C9 


FA 




1090 




CMP 


#$FA 




FFBB 


B0 


CD 




1091 




BCS 


DIG 




FFBD 


60 






1092 




RTS 






FFBE 


A9 


FE 




1093 


TOSUB 


LDA 


#G0/256 


PUSH HIGH-ORDER 


FFC0 


48 






1094 




PHA 




SUBR ADR ON STK 


FFC1 


B9 


E3 


FF 


1095 




LDA 


SUBTBL, Y 


PUSH LOW-ORDER 


FFC4 


48 






1096 




PHA 




SUBR ADR ON STK 


FFC5 


A5 


31 




1097 




LDA 


MODE 




FFC7 


A0 


00 




1098 


ZMODE 


LDY 


#$00 


CLR MODE, OLD MODE 


FFC9 


84 


31 




1099 




STY 


MODE 


TO A -REG 


FFCB 


60 






1100 




RTS 




GO TO SUBR VIA RTS 


FFCC 


BC 






1101 


CHRTBL 


DFB 


$BC 


F("CTRL-C") 


FFCD 


B2 






1102 




DFB 


$B2 


F( "CTRL-Y" ) 


FFCE 


BE 






1103 




DFB 


$BE 


F( "CTRL-E" ) 


FFCF 


ED 






1104 




DFB 


$ED 


F("T") 


FFD0 


EF 






1105 




DFB 


$EF 


F("V") 


FFD1 


C4 






1106 




DFB 


$C4 


F( "CTRL-K" ) 


FFD2 


EC 






1107 




DFB 


$EC 


F("S") 


FFD3 


A9 






1108 




DFB 


$A9 


F("CTRL-P") 


FFD4 


BB 






1109 




DFB 


$BB 


F( "CTRL-B" ) 


FFD5 


A6 






1110 




DFB 


$A6 


F ( ■■-■■) 


FFD6 


A4 






1111 




DFB 


$A4 


F("+") 


FFD7 


06 






1112 




DFB 


$06 


F("M") (F=EX-OR $B0+$89) 


FFD8 


95 






1113 




DFB 


$95 


F("<") 


FFD9 


07 






1114 




DFB 


$07 


F("N") 


FFDA 


02 






1115 




DFB 


$02 


F("I") 


FFDB 


05 






1116 




DFB 


$05 


F("L") 


FFDC 


F0 






1117 




DFB 


$F0 


F("W") 


FFDD 


00 






1118 




DFB 


$00 


F("G") 


FFDE 


EB 






1119 




DFB 


$EB 


F("R") 


FFDF 


93 






1120 




DFB 


$93 


F(" : ") 
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FFE0 


A7 


1121 




DFB 


$A7 


FFE1 


C6 


1122 




DFB 


$C6 


FFE2 


99 


1123 




DFB 


$99 


FFE3 


B2 


1124 


SUBTBL 


DFB 


BASCONT-1 


FFE4 


C9 


1125 




DFB 


USR-1 


FFE5 


BE 


1126 




DFB 


REGZ-1 


FFE6 


CI 


1127 




DFB 


TRACE- 1 


FFE7 


35 


1128 




DFB 


VFY-1 


FFE8 


8C 


1129 




DFB 


INPRT-1 


FFE9 


C3 


1130 




DFB 


STEPZ-1 


FFEA 


96 


1131 




DFB 


OUTPRT-1 


FFEB 


AF 


1132 




DFB 


XBASIC-1 


FFEC 


17 


1133 




DFB 


SETMODE- 1 


FFED 


17 


1134 




DFB 


SETMODE- 1 


FFEE 


2B 


1135 




DFB 


MOVE-1 


FFEF 


IF 


1136 




DFB 


LT-1 


FFF0 


83 


1137 




DFB 


SETNORM- 1 


FFF1 


7F 


1138 




DFB 


SETINV-1 


FFF2 


5D 


1139 




DFB 


LIST-1 


FFF3 


CC 


1140 




DFB 


WRITE -1 


FFF4 


B5 


1141 




DFB 


GO-1 


FFF5 


FC 


1142 




DFB 


READ- 1 


FFF6 


17 


1143 




DFB 


SETMODE -1 


FFF7 


17 


1144 




DFB 


SETMODE- 1 


FFF8 


F5 


1145 




DFB 


CRMON-1 


FFF9 


03 


1146 




DFB 


BLANK- 1 


FFFA 


FB 


1147 




DFB 


NMI 


FFFB 


03 


1148 




DFB 


NMI/256 


FFFC 


59 


1149 




DFB 


RESET 


FFFD 


FF 


1150 




DFB 


RESET/256 


FFFE 


86 


1151 




DFB 


IRQ 


FFFF 


FA 


1152 




DFB 


IRQ/256 






1153 


XQTNZ 


EQU 


$3C 



FC") 
F("CR") 
F( BLANK) 



;NMI VECTOR 
; RESET VECTOR 
;IRQ VECTOR 



### 
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